perm filename BSCR2[MUS,LCS] blob
sn#130157 filedate 1974-11-14 generic text, type T, neo UTF8
00100 SCR2B;
00200 FMV1 0 120;
00300 P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
00400 P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
00500 P4 .5 9999.17,9999.17 .1 .5,.5 .1 1,1 .1 2,2 .1 3,3 .1 4,4;
00600 P5 2.75;
00700 P6 0/P7 6;
00800 P8 6/P9 .1;
00900 P10 100;
01000 P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
01100 14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
01200 P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
01300 7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
01400 P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
01500 7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
01600 P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
01700 7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
01800 P15 .2;
01900 P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
02000 P17 .1 5,5 .1 6,6 .1 7,7 .1 9,9 .1 10,10;
02100 P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
02200 END;
02300 FMV2 0 120;
02400 P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
02500 P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
02600 P4 .1 ".5" .1 "1" .1 "2" .1 "3" .1 "4" .1 "5" .1 "6" .1 "7" .1 "9" .1 "10";
02700 P5 2.75;
02800 P6 0/P7 6;
02900 P8 6/P9 .1;
03000 P10 100;
03100 P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
03200 14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
03300 P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
03400 7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
03500 P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
03600 7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
03700 P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
03800 7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
03900 P15 .2;
04000 P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
04100 P17 .2 5,5 .2 6,6 .2 7,7 .2 9,9 .2 10,10;
04200 P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
04300 END;
04400 FMV3 0 120;
04500 P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
04600 P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
04700 P4 .5 9999.17,9999.17 .1 .5,.5 .1 1,1 .1 2,2 .1 3,3 .1 4,4;
04800 P5 2.75;
04900 P6 0/P7 6;
05000 P8 6/P9 .1;
05100 P10 100;
05200 P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
05300 14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
05400 P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
05500 7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
05600 P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
05700 7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
05800 P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
05900 7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
06000 P15 .2;
06100 P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
06200 P17 .1 5,5 .1 6,6 .1 7,7 .1 9,9 .1 10,10;
06300 P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
06400 END;
06500 FMV4 0 120;
06600 P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
06700 P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
06800 P4 .5 9999.17,9999.17 .1 .5,.5 .1 1,1 .1 2,2 .1 3,3 .1 4,4;
06900 P5 2.75;
07000 P6 0/P7 6;
07100 P8 6/P9 .1;
07200 P10 100;
07300 P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
07400 14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
07500 P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
07600 7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
07700 P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
07800 7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
07900 P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
08000 7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
08100 P15 .2;
08200 P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
08300 P17 .1 5,5 .1 6,6 .1 7,7 .1 9,9 .1 10,10;
08400 P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
08500 END;
08600 RN1 5 15;
08700 P2 MOVE/4 .125,.062/3 -3,-3/3 .083,.041*;
08800 P3 MOVE/4 1000,800/3 0,0/3 600,400*;
08900 P4 MOVE/2 1000,500/2 500,1000/3 1000,1000/1 2000,1000/2 1000,3000*;
09000 P8 MOVE/2 -1,1/2 1,1/3 0,0/1 1,1/2 1,-1*;
09100 P9 MOVE/2 1,1/2 1,-1/3 0,0/1 1,-1/2 -1,-1*;
09200 P15 .2;
09300 P16 SUBN;
09400 END;
09500 RUN;